-- card: 4053 from stack: in
-- bmap block id: 4220
-- flags: 4000
-- background id: 2715
-- name: Buttons
----- HyperTalk script -----
on closeCard
  hide card button "Paste"
end closeCard

on openCard
  choose browse tool
end openCard

on ƒ
  global whatButton
  global s,f,y,a
  put "Click on a button to change the font of..."
  set cursor to plus
  wait until the mouseClick
  hide message
  set cursor to watch
  put getbutton(the clickLoc) into whatButton
  if whatButton is empty then exit ƒ
  choose text tool
  click at 25,304
  doMenu "Text Style..."
  put the textFont into f
  put the textSize into s
  put the textStyle into y
  put the textAlign into a
  put whatButton
  set the textFont of whatButton to f
  set the textSize of whatButton to s
  set the textAlign of whatButton to a
  put "Set the textStyle of " & whatButton && "to" && y
  send message to HyperCard
  hide message
  choose browse tool
end ƒ

function getButton clickPoint
repeat with i = 1 to the number of card buttons
  if clickPoint is within rect of card btn i then
    return the name of btn i
  end if
end repeat
return empty
end getButton





-- part 62 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=90 top=31 right=62 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 32488 / 32488
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    global wherePlayer
    send "shootUp" to card field wherePlayer
    pass mouseUp
  end if
  global wherePlayer
  send "Up" to card field wherePlayer
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=60 top=61 right=92 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global wherePlayer
  send "Left" to card field wherePlayer
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=89 top=91 right=122 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 2335 / 2335
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global wherePlayer
  if the optionKey is down then
    send "shootDown" to card field wherePlayer
    pass mouseUp
  end if
  send "down" to card field wherePlayer
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=41 top=185 right=211 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See through fields
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to the number of card fields
    set the style of card field x to transparent
  end repeat
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=110 top=148 right=167 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  go to card "Creation Card" of stack "Game Generator Stack"
end mouseUp



-- part 70 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=36 top=144 right=172 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset
----- HyperTalk script -----
on mouseUp
  global playerChar,wherePlayer
  repeat with r = 1 to the number of card fields
    put empty into card field r
  end repeat
  put "A" into playerChar
  put 1 into wherePlayer
  put "A" into card field wherePlayer
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=120 top=60 right=91 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
  global wherePlayer
  send "Right" to card field wherePlayer
end mouseUp



-- part 93 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=313 top=303 right=321 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ButtonFont
----- HyperTalk script -----
on mouseUp
  send "ƒ" to this card
end mouseUp



-- part 95 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=385 top=45 right=64 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mode 2
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put card field list into theList
  DoList "Select","Cancel",theList,one
  put item 2 of the result into whatItem
end mouseUp



-- part 98 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=1 right=306 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paste
----- HyperTalk script -----
on mouseUp
  hide me
  choose button tool
  click at the clickLoc
  doMenu "Copy Button"
  pop card
  doMenu "Paste Button"
end mouseUp



-- part 99 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=285 top=139 right=207 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List


-- part 100 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=291 right=314 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: c
----- HyperTalk script -----
on mouseUp
  visual effect wipe up
  go to next card
end mouseUp



-- part 101 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=291 right=314 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: c
----- HyperTalk script -----
on mouseUp
  visual effect wipe up
  go to next card
end mouseUp



-- part 104 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=26 right=304 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part 105 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=26 right=304 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to card "Main Menu"
end mouseUp



-- part contents for card part 99
----- text -----
Button,Field,Text,Graphic